home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir39 / exc32.zip / TESTEXC.SCR < prev    next >
Text File  |  1993-12-03  |  4KB  |  206 lines
  1. ; This script is used to test EXC.EXE functionality.  It is run against
  2. ; the Mirosoft EDIT editor that comes with DOS 5 and up.  It uses almost 
  3. ; every command available in EXC.  To test the abort and pause/resume keys, 
  4. ; type LEFT SHIFT+RIGHT SHIFT (abort) or SCROLL LOCK (pause/resume toggle) 
  5. ; whenever you wish.  Requires VGA.
  6.  
  7. ; If you don't have DOS 5 or greater, feel free to modify it to work with 
  8. ; your favorite editor or word processor.  This could be a very good
  9. ; excercise in learning how scripts are coded and how they work.  
  10.  
  11. ; Please do not use this as a model of how a script should be written.  
  12. ; In order to test every function, I use some pretty hokey coding that 
  13. ; would not be best used in that manner in real world apllications.  
  14. ; Also I slow down operation considerably with delays so that I can 
  15. ; study the results of various tests as the script proceeds.
  16.  
  17. ; This can be used, however for examples of how each command should be 
  18. ; coded and it will demonstrate the results of that code.
  19.  
  20. ; The initial delay should be increased for very slow CPUs.  Some commands
  21. ; may not function properly at speeds below 8 mhz.  Uncommenting the SLOW
  22. ; command may help.
  23.  
  24. ; SLOW
  25.  
  26.   SCRMAX 80 50
  27.   DELAY 5
  28.   WAITFOR "Guide"
  29.   CASE ON
  30.   WINMAX
  31.   WAITFOR "dialog box"
  32.   CASE OFF
  33.   KEY <ESC>
  34.   SHOWAT 17 47
  35.  
  36. :LOOP
  37.   SEARCH "00001:001"
  38.   IFN LOOP
  39.  
  40.   SHOW 12 "Found \q00001:001\q                     "
  41.   CASE ON
  42.   DELAY 2
  43.  
  44.   BEEP
  45.   SHOW 14 "Testing WAITSCR in window - Press space bar."
  46.   WINROWS 15 50
  47.   WINCOLS 60 79
  48.   WAITSCR
  49.   WINMAX
  50.   SHOW 12 "Found screen change in window.              "
  51.   DELAY 2
  52.  
  53. :LOAD
  54.   SHOW 12 "Loading TESTEXC.SCR                       "
  55.   KEY <BKSP>
  56.   KEY <ALT+F>
  57.   WAITFOR "Open"
  58.   TYPE "o"
  59.   WAITFOR "File Name:"
  60.   TYPE "M:\EXC\TESTEXC.SCR"
  61.   KEY <ENTER>
  62.   WAITFOR "Save it now?"
  63.   TYPE "n"
  64.   WAITFOR "WINROWS"
  65.  
  66.   SHOW 12 "Highlighting rows 15 50                     "
  67.   WINROWS 15 50
  68.   SHOWIN 79
  69.   DELAY 2
  70.   HIDEWIN
  71.   SHOW 12 "Highlighting rows 15 50, cols 60 77        "
  72.   WINCOLS 60 77
  73.   SHOWIN 79
  74.   DELAY 2
  75.   HIDEWIN
  76.   SHOW 12 "Now Testing WINMAX                        "
  77.   DELAY 1
  78.   WINMAX
  79.   SHOWIN 79
  80.   DELAY 2
  81.   HIDEWIN
  82.  
  83.   SHOW 12 "Testing a LOOP using ON: 3 beeps          "
  84. :LOOP1
  85.  ON 3 ENDLOOP1
  86.  BEEP
  87.  TICKS 7
  88.  GOTO LOOP1
  89. :ENDLOOP1
  90.  
  91.   SHOW 12 "Typing \qScroll Lock\q at col 43, row 6   "
  92.   CURSOR 43 6
  93.   KEY <DEL> 11
  94.   TYPE "Scroll Lock"
  95.   DELAY 1
  96.   SHOW 12 "Moving cursor back to top row.            "
  97.   CURSOR 0 3
  98.   DELAY 1
  99.   SHOW 12 "Moving cursor back home.                  "
  100.   CURSOR 2 0
  101.   DELAY 1
  102.  
  103.   SHOW 12 "Locating Scroll Lock and changing it back."
  104.   LOCATE "Scroll Lock"
  105.   TYPE "SCROLL LOCK"
  106.   KEY <DEL> 11
  107.   CURSOR 2 3
  108.  
  109.   KEY <DOWN> 50
  110.   KEY <PGDN>
  111.   KEY <PGUP>
  112.   SHOW 12 "Testing /CASE/READ/LOOK IN A window.       "
  113.   WINROWS 30 49
  114.   WINCOLS 16 36
  115.   SHOWIN 79
  116.   DELAY 2
  117.   HIDEWIN
  118.   CASE OFF
  119.   READ
  120.   LOOK "waitscr"
  121.   CASE ON
  122.   IFY TLOC
  123.   GOTO RLERR
  124.  
  125. :TLOC
  126.   SHOW 12 "Test LOCATE in a window beyond line 25.   "
  127.   LOCATE "WAITSCR"
  128.   TYPE "WaitScr"
  129.   KEY <DEL> 7
  130. ;  CURSOR 2 3
  131.   GOTO TSTTO
  132.  
  133. :RLERR
  134.   SHOW 12 "Error in CASE/READ/LOOK.                  "
  135.   BEEP
  136.   BEEP
  137.   BEEP
  138.   DELAY 3
  139.  
  140. :TSTTO
  141.   WINMAX
  142.   SHOW 12 "Testing a 4 second timeout.               "
  143.   SETWAIT 4
  144.   BEEP
  145.   TIMEOUT TSTTF
  146.   WAITFOR "ZzZz"
  147.  
  148. :TSTTF
  149.   BEEP
  150.   SHOW 12 "Going to end of the file.                 "
  151.   KEY <CTL+END>
  152.   DELAY 1
  153.   SHOW 12 "Inserting TESTEXC.TXT using SLOW          "
  154.   DELAY 1
  155.   SLOW
  156.   TYPFILE TESTEXC.TXT <ENTER>
  157.   SHOW 12 "Inserting TESTEXC.TXT using FAST          "
  158.   DELAY 1
  159.   FAST
  160.   TYPFILE TESTEXC.TXT <ENTER>
  161.   DELAY 1
  162.   BEEP
  163.  
  164.   SHOW 12 "Testing use of variables, COMSPEC & 16    "
  165.   DELAY 2
  166.   SET 16 "%COMSPEC%"
  167.   TYPE "[@16@]"
  168.   KEY <ENTER>
  169.   SET 16 NULL
  170.   TYPE "[@16@]"
  171.   KEY <ENTER>
  172.  
  173.   SHOW 12 "TESTING 3 subroutine executions.          "
  174.   SET 2 1
  175.   SET 1 DO2
  176.   GOTO SUB1
  177.  
  178. :DO2
  179.   SET 2 2
  180.   SET 1 DO3
  181.   GOTO SUB1
  182.  
  183. :DO3
  184.   SET 2 3
  185.   SET 1 ENDSUBS
  186.   GOTO SUB1
  187.  
  188. :ENDSUBS
  189.   SHOW 14 "Paused - Press Scroll Lock                "
  190.   PAUSE
  191.  
  192. :EXIT  
  193.   SHOW 12 "Done, exiting Microsoft Editor            "
  194.   DELAY 1
  195.   KEY <ALT+F>
  196.   WAITFOR "Exit"
  197.   TYPE "x"
  198.   WAITFOR "Save it now?"
  199.   TYPE "n"
  200.   QUIT
  201.  
  202. :SUB1
  203.   TYPE "Subroutine execution number @2@."
  204.   KEY <ENTER>
  205.   GOTO @1@
  206.